home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / easyrcs_1.3 / arexx / scanfiles.ercs < prev   
Text File  |  1996-09-04  |  285b  |  23 lines
  1. /*  ScanFiles.ercs
  2.  *    Yann Muller © 1996
  3.  *    Version 1.1   ---  03/09/96
  4.  */
  5.  
  6. OPTIONS RESULTS
  7. OPTIONS FAILAT 11
  8. ADDRESS EASYRCS
  9.  
  10. 'query showstate'
  11. show_old = RESULT
  12.  
  13. 'show both'
  14. 'select top'
  15.  
  16. DO while RC == 0
  17.     /* insert code here */
  18.  
  19.     'select next'
  20.     END
  21.  
  22. 'show' show_old
  23.